home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00055_Vincent ID.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  496 b   |  31 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   over21 = sprite(getActiveCharacter()).pOver21
  6.   pCharCode = currentChar()
  7.   thisChar = string(pCharCode)
  8.   if pCharCode = #VH then
  9.     pSpr.visible = 1
  10.     if over21 then
  11.       pSpr.member = member(thisChar & "_over")
  12.     else
  13.       pSpr.member = member(thisChar & "_under")
  14.     end if
  15.   else
  16.     pSpr.visible = 0
  17.   end if
  18. end
  19.  
  20. on endSprite
  21.   pSpr.visible = 1
  22. end
  23.  
  24. on mouseEnter
  25.   hideToolTip()
  26. end
  27.  
  28. on mouseWithin
  29.   nothing()
  30. end
  31.